BBS in a Box 5

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MPWGCC (Sources).cpt / Sources / real.h < prev next >
MacBinary | 1990-04-27 | 3.8 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Fri Apr 27 14:05:12 1990, modified Fri Apr 27 14:05:12 1990, creator 'MPS ', type ASCII, 3293 bytes "real.h" , at 0xd5d 382 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 72 65 61 6c 2e 68 | 00 00 00 00 00 00 00 00 |..real.h|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0c dd 00 | 00 01 7e a2 5e 3a 58 a2 |........|..~.^:X.|
|00000060| 5e 3a 58 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |^:X.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 6d 85 00 00 |........|....m...|
|00000080| 2f 2a 20 46 72 6f 6e 74 | 2d 65 6e 64 20 74 72 65 |/* Front|-end tre|
|00000090| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 73 20 66 6f |e defini|tions fo|
|000000a0| 72 20 47 4e 55 20 63 6f | 6d 70 69 6c 65 72 2e 0d |r GNU co|mpiler..|
|000000b0| 20 20 20 43 6f 70 79 72 | 69 67 68 74 20 28 43 29 |   Copyr|ight (C)|
|000000c0| 20 31 39 38 39 20 46 72 | 65 65 20 53 6f 66 74 77 | 1989 Fr|ee Softw|
|000000d0| 61 72 65 20 46 6f 75 6e | 64 61 74 69 6f 6e 2c 20 |are Foun|dation, |
|000000e0| 49 6e 63 2e 0d 20 20 20 | 43 6f 70 79 72 69 67 68 |Inc..   |Copyrigh|
|000000f0| 74 20 28 43 29 20 31 39 | 38 39 2c 20 31 39 39 30 |t (C) 19|89, 1990|
|00000100| 20 41 70 70 6c 65 20 43 | 6f 6d 70 75 74 65 72 2c | Apple C|omputer,|
|00000110| 20 49 6e 63 2e 0d 0d 54 | 68 69 73 20 66 69 6c 65 | Inc...T|his file|
|00000120| 20 69 73 20 70 61 72 74 | 20 6f 66 20 47 4e 55 20 | is part| of GNU |
|00000130| 43 43 2e 0d 0d 47 4e 55 | 20 43 43 20 69 73 20 66 |CC...GNU| CC is f|
|00000140| 72 65 65 20 73 6f 66 74 | 77 61 72 65 3b 20 79 6f |ree soft|ware; yo|
|00000150| 75 20 63 61 6e 20 72 65 | 64 69 73 74 72 69 62 75 |u can re|distribu|
|00000160| 74 65 20 69 74 20 61 6e | 64 2f 6f 72 20 6d 6f 64 |te it an|d/or mod|
|00000170| 69 66 79 0d 69 74 20 75 | 6e 64 65 72 20 74 68 65 |ify.it u|nder the|
|00000180| 20 74 65 72 6d 73 20 6f | 66 20 74 68 65 20 47 4e | terms o|f the GN|
|00000190| 55 20 47 65 6e 65 72 61 | 6c 20 50 75 62 6c 69 63 |U Genera|l Public|
|000001a0| 20 4c 69 63 65 6e 73 65 | 20 61 73 20 70 75 62 6c | License| as publ|
|000001b0| 69 73 68 65 64 20 62 79 | 0d 74 68 65 20 46 72 65 |ished by|.the Fre|
|000001c0| 65 20 53 6f 66 74 77 61 | 72 65 20 46 6f 75 6e 64 |e Softwa|re Found|
|000001d0| 61 74 69 6f 6e 3b 20 65 | 69 74 68 65 72 20 76 65 |ation; e|ither ve|
|000001e0| 72 73 69 6f 6e 20 31 2c | 20 6f 72 20 28 61 74 20 |rsion 1,| or (at |
|000001f0| 79 6f 75 72 20 6f 70 74 | 69 6f 6e 29 0d 61 6e 79 |your opt|ion).any|
|00000200| 20 6c 61 74 65 72 20 76 | 65 72 73 69 6f 6e 2e 0d | later v|ersion..|
|00000210| 0d 47 4e 55 20 43 43 20 | 69 73 20 64 69 73 74 72 |.GNU CC |is distr|
|00000220| 69 62 75 74 65 64 20 69 | 6e 20 74 68 65 20 68 6f |ibuted i|n the ho|
|00000230| 70 65 20 74 68 61 74 20 | 69 74 20 77 69 6c 6c 20 |pe that |it will |
|00000240| 62 65 20 75 73 65 66 75 | 6c 2c 0d 62 75 74 20 57 |be usefu|l,.but W|
|00000250| 49 54 48 4f 55 54 20 41 | 4e 59 20 57 41 52 52 41 |ITHOUT A|NY WARRA|
|00000260| 4e 54 59 3b 20 77 69 74 | 68 6f 75 74 20 65 76 65 |NTY; wit|hout eve|
|00000270| 6e 20 74 68 65 20 69 6d | 70 6c 69 65 64 20 77 61 |n the im|plied wa|
|00000280| 72 72 61 6e 74 79 20 6f | 66 0d 4d 45 52 43 48 41 |rranty o|f.MERCHA|
|00000290| 4e 54 41 42 49 4c 49 54 | 59 20 6f 72 20 46 49 54 |NTABILIT|Y or FIT|
|000002a0| 4e 45 53 53 20 46 4f 52 | 20 41 20 50 41 52 54 49 |NESS FOR| A PARTI|
|000002b0| 43 55 4c 41 52 20 50 55 | 52 50 4f 53 45 2e 20 20 |CULAR PU|RPOSE.  |
|000002c0| 53 65 65 20 74 68 65 0d | 47 4e 55 20 47 65 6e 65 |See the.|GNU Gene|
|000002d0| 72 61 6c 20 50 75 62 6c | 69 63 20 4c 69 63 65 6e |ral Publ|ic Licen|
|000002e0| 73 65 20 66 6f 72 20 6d | 6f 72 65 20 64 65 74 61 |se for m|ore deta|
|000002f0| 69 6c 73 2e 0d 0d 59 6f | 75 20 73 68 6f 75 6c 64 |ils...Yo|u should|
|00000300| 20 68 61 76 65 20 72 65 | 63 65 69 76 65 64 20 61 | have re|ceived a|
|00000310| 20 63 6f 70 79 20 6f 66 | 20 74 68 65 20 47 4e 55 | copy of| the GNU|
|00000320| 20 47 65 6e 65 72 61 6c | 20 50 75 62 6c 69 63 20 | General| Public |
|00000330| 4c 69 63 65 6e 73 65 0d | 61 6c 6f 6e 67 20 77 69 |License.|along wi|
|00000340| 74 68 20 47 4e 55 20 43 | 43 3b 20 73 65 65 20 74 |th GNU C|C; see t|
|00000350| 68 65 20 66 69 6c 65 20 | 43 4f 50 59 49 4e 47 2e |he file |COPYING.|
|00000360| 20 20 49 66 20 6e 6f 74 | 2c 20 77 72 69 74 65 20 |  If not|, write |
|00000370| 74 6f 0d 74 68 65 20 46 | 72 65 65 20 53 6f 66 74 |to.the F|ree Soft|
|00000380| 77 61 72 65 20 46 6f 75 | 6e 64 61 74 69 6f 6e 2c |ware Fou|ndation,|
|00000390| 20 36 37 35 20 4d 61 73 | 73 20 41 76 65 2c 20 43 | 675 Mas|s Ave, C|
|000003a0| 61 6d 62 72 69 64 67 65 | 2c 20 4d 41 20 30 32 31 |ambridge|, MA 021|
|000003b0| 33 39 2c 20 55 53 41 2e | 20 20 2a 2f 0d 0d 23 69 |39, USA.|  */..#i|
|000003c0| 66 6e 64 65 66 20 52 45 | 41 4c 5f 48 5f 49 4e 43 |fndef RE|AL_H_INC|
|000003d0| 4c 55 44 45 44 0d 23 64 | 65 66 69 6e 65 20 52 45 |LUDED.#d|efine RE|
|000003e0| 41 4c 5f 48 5f 49 4e 43 | 4c 55 44 45 44 0d 0d 2f |AL_H_INC|LUDED../|
|000003f0| 2a 20 49 66 20 77 65 20 | 61 72 65 20 6e 6f 74 20 |* If we |are not |
|00000400| 63 72 6f 73 73 2d 63 6f | 6d 70 69 6c 69 6e 67 2c |cross-co|mpiling,|
|00000410| 20 75 73 65 20 61 20 60 | 64 6f 75 62 6c 65 27 20 | use a `|double' |
|00000420| 74 6f 20 72 65 70 72 65 | 73 65 6e 74 20 74 68 65 |to repre|sent the|
|00000430| 0d 20 20 20 66 6c 6f 61 | 74 69 6e 67 2d 70 6f 69 |.   floa|ting-poi|
|00000440| 6e 74 20 76 61 6c 75 65 | 2e 20 20 4f 74 68 65 72 |nt value|.  Other|
|00000450| 77 69 73 65 2c 20 75 73 | 65 20 73 6f 6d 65 20 6f |wise, us|e some o|
|00000460| 74 68 65 72 20 74 79 70 | 65 0d 20 20 20 28 70 72 |ther typ|e.   (pr|
|00000470| 6f 62 61 62 6c 79 20 61 | 20 73 74 72 75 63 74 20 |obably a| struct |
|00000480| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 61 6e 20 61 72 |containi|ng an ar|
|00000490| 72 61 79 20 6f 66 20 6c | 6f 6e 67 73 29 2e 20 20 |ray of l|ongs).  |
|000004a0| 2a 2f 0d 23 69 66 6e 64 | 65 66 20 52 45 41 4c 5f |*/.#ifnd|ef REAL_|
|000004b0| 56 41 4c 55 45 5f 54 59 | 50 45 0d 23 64 65 66 69 |VALUE_TY|PE.#defi|
|000004c0| 6e 65 20 52 45 41 4c 5f | 56 41 4c 55 45 5f 54 59 |ne REAL_|VALUE_TY|
|000004d0| 50 45 20 64 6f 75 62 6c | 65 0d 23 65 6c 73 65 0d |PE doubl|e.#else.|
|000004e0| 23 69 66 64 65 66 20 41 | 50 50 4c 45 5f 48 41 58 |#ifdef A|PPLE_HAX|
|000004f0| 0d 20 2f 2a 20 6e 6f 74 | 68 69 6e 67 20 6e 65 65 |. /* not|hing nee|
|00000500| 64 65 64 2e 20 2a 2f 0d | 23 65 6c 73 65 0d 23 64 |ded. */.|#else.#d|
|00000510| 65 66 69 6e 65 20 52 45 | 41 4c 5f 49 53 5f 4e 4f |efine RE|AL_IS_NO|
|00000520| 54 5f 44 4f 55 42 4c 45 | 0d 23 65 6e 64 69 66 20 |T_DOUBLE|.#endif |
|00000530| 2f 2a 20 41 50 50 4c 45 | 5f 48 41 58 20 2a 2f 0d |/* APPLE|_HAX */.|
|00000540| 23 65 6e 64 69 66 0d 0d | 2f 2a 20 43 6f 6d 70 61 |#endif..|/* Compa|
|00000550| 72 65 20 74 77 6f 20 66 | 6c 6f 61 74 69 6e 67 2d |re two f|loating-|
|00000560| 70 6f 69 6e 74 20 76 61 | 6c 75 65 73 20 66 6f 72 |point va|lues for|
|00000570| 20 65 71 75 61 6c 69 74 | 79 2e 20 20 2a 2f 0d 23 | equalit|y.  */.#|
|00000580| 69 66 6e 64 65 66 20 52 | 45 41 4c 5f 56 41 4c 55 |ifndef R|EAL_VALU|
|00000590| 45 53 5f 45 51 55 41 4c | 0d 23 64 65 66 69 6e 65 |ES_EQUAL|.#define|
|000005a0| 20 52 45 41 4c 5f 56 41 | 4c 55 45 53 5f 45 51 55 | REAL_VA|LUES_EQU|
|000005b0| 41 4c 28 78 2c 79 29 20 | 28 28 78 29 20 3d 3d 20 |AL(x,y) |((x) == |
|000005c0| 28 79 29 29 0d 23 65 6e | 64 69 66 0d 0d 2f 2a 20 |(y)).#en|dif../* |
|000005d0| 43 6f 6d 70 61 72 65 20 | 74 77 6f 20 66 6c 6f 61 |Compare |two floa|
|000005e0| 74 69 6e 67 2d 70 6f 69 | 6e 74 20 76 61 6c 75 65 |ting-poi|nt value|
|000005f0| 73 20 66 6f 72 20 6c 65 | 73 73 20 74 68 61 6e 2e |s for le|ss than.|
|00000600| 20 20 2a 2f 0d 23 69 66 | 6e 64 65 66 20 52 45 41 |  */.#if|ndef REA|
|00000610| 4c 5f 56 41 4c 55 45 53 | 5f 4c 45 53 53 0d 23 64 |L_VALUES|_LESS.#d|
|00000620| 65 66 69 6e 65 20 52 45 | 41 4c 5f 56 41 4c 55 45 |efine RE|AL_VALUE|
|00000630| 53 5f 4c 45 53 53 28 78 | 2c 79 29 20 28 28 78 29 |S_LESS(x|,y) ((x)|
|00000640| 20 3c 20 28 79 29 29 0d | 23 65 6e 64 69 66 0d 0d | < (y)).|#endif..|
|00000650| 2f 2a 20 53 63 61 6c 65 | 20 58 20 62 79 20 59 20 |/* Scale| X by Y |
|00000660| 70 6f 77 65 72 73 20 6f | 66 20 32 2e 20 20 2a 2f |powers o|f 2.  */|
|00000670| 0d 23 69 66 6e 64 65 66 | 20 52 45 41 4c 5f 56 41 |.#ifndef| REAL_VA|
|00000680| 4c 55 45 5f 4c 44 45 58 | 50 0d 23 64 65 66 69 6e |LUE_LDEX|P.#defin|
|00000690| 65 20 52 45 41 4c 5f 56 | 41 4c 55 45 5f 4c 44 45 |e REAL_V|ALUE_LDE|
|000006a0| 58 50 28 78 2c 79 29 20 | 6c 64 65 78 70 20 28 78 |XP(x,y) |ldexp (x|
|000006b0| 2c 20 79 29 0d 65 78 74 | 65 72 6e 20 64 6f 75 62 |, y).ext|ern doub|
|000006c0| 6c 65 20 6c 64 65 78 70 | 20 28 29 3b 0d 23 65 6e |le ldexp| ();.#en|
|000006d0| 64 69 66 0d 0d 2f 2a 20 | 43 6f 6e 76 65 72 74 20 |dif../* |Convert |
|000006e0| 74 68 65 20 73 74 72 69 | 6e 67 20 58 20 74 6f 20 |the stri|ng X to |
|000006f0| 61 20 66 6c 6f 61 74 69 | 6e 67 2d 70 6f 69 6e 74 |a floati|ng-point|
|00000700| 20 76 61 6c 75 65 2e 20 | 20 2a 2f 0d 23 69 66 6e | value. | */.#ifn|
|00000710| 64 65 66 20 52 45 41 4c | 5f 56 41 4c 55 45 5f 41 |def REAL|_VALUE_A|
|00000720| 54 4f 46 0d 23 64 65 66 | 69 6e 65 20 52 45 41 4c |TOF.#def|ine REAL|
|00000730| 5f 56 41 4c 55 45 5f 41 | 54 4f 46 28 78 29 20 61 |_VALUE_A|TOF(x) a|
|00000740| 74 6f 66 20 28 78 29 0d | 65 78 74 65 72 6e 20 64 |tof (x).|extern d|
|00000750| 6f 75 62 6c 65 20 61 74 | 6f 66 20 28 29 3b 0d 23 |ouble at|of ();.#|
|00000760| 65 6e 64 69 66 0d 0d 2f | 2a 20 4e 65 67 61 74 65 |endif../|* Negate|
|00000770| 20 74 68 65 20 66 6c 6f | 61 74 69 6e 67 2d 70 6f | the flo|ating-po|
|00000780| 69 6e 74 20 76 61 6c 75 | 65 20 58 2e 20 20 2a 2f |int valu|e X.  */|
|00000790| 0d 23 69 66 6e 64 65 66 | 20 52 45 41 4c 5f 56 41 |.#ifndef| REAL_VA|
|000007a0| 4c 55 45 5f 4e 45 47 41 | 54 45 0d 23 64 65 66 69 |LUE_NEGA|TE.#defi|
|000007b0| 6e 65 20 52 45 41 4c 5f | 56 41 4c 55 45 5f 4e 45 |ne REAL_|VALUE_NE|
|000007c0| 47 41 54 45 28 78 29 20 | 28 2d 20 28 78 29 29 0d |GATE(x) |(- (x)).|
|000007d0| 23 65 6e 64 69 66 0d 0d | 2f 2a 20 54 72 75 6e 63 |#endif..|/* Trunc|
|000007e0| 61 74 65 20 74 68 65 20 | 66 6c 6f 61 74 69 6e 67 |ate the |floating|
|000007f0| 2d 70 6f 69 6e 74 20 76 | 61 6c 75 65 20 58 20 74 |-point v|alue X t|
|00000800| 6f 20 73 69 6e 67 6c 65 | 2d 70 72 65 63 69 73 69 |o single|-precisi|
|00000810| 6f 6e 2e 20 20 2a 2f 0d | 23 69 66 6e 64 65 66 20 |on.  */.|#ifndef |
|00000820| 52 45 41 4c 5f 56 41 4c | 55 45 5f 54 52 55 4e 43 |REAL_VAL|UE_TRUNC|
|00000830| 41 54 45 0d 23 64 65 66 | 69 6e 65 20 52 45 41 4c |ATE.#def|ine REAL|
|00000840| 5f 56 41 4c 55 45 5f 54 | 52 55 4e 43 41 54 45 28 |_VALUE_T|RUNCATE(|
|00000850| 78 29 20 28 28 66 6c 6f | 61 74 29 20 28 78 29 29 |x) ((flo|at) (x))|
|00000860| 0d 23 65 6e 64 69 66 0d | 0d 2f 2a 20 55 6e 69 6f |.#endif.|./* Unio|
|00000870| 6e 20 74 79 70 65 20 75 | 73 65 64 20 66 6f 72 20 |n type u|sed for |
|00000880| 65 78 74 72 61 63 74 69 | 6e 67 20 72 65 61 6c 20 |extracti|ng real |
|00000890| 76 61 6c 75 65 73 20 66 | 72 6f 6d 20 43 4f 4e 53 |values f|rom CONS|
|000008a0| 54 5f 44 4f 55 42 4c 45 | 73 0d 20 20 20 6f 72 20 |T_DOUBLE|s.   or |
|000008b0| 70 75 74 74 69 6e 67 20 | 74 68 65 6d 20 69 6e 2e |putting |them in.|
|000008c0| 20 20 2a 2f 0d 0d 75 6e | 69 6f 6e 20 72 65 61 6c |  */..un|ion real|
|000008d0| 5f 65 78 74 72 61 63 74 | 20 0d 7b 0d 20 20 52 45 |_extract| .{.  RE|
|000008e0| 41 4c 5f 56 41 4c 55 45 | 5f 54 59 50 45 20 64 3b |AL_VALUE|_TYPE d;|
|000008f0| 0d 20 20 69 6e 74 20 69 | 5b 73 69 7a 65 6f 66 20 |.  int i|[sizeof |
|00000900| 28 52 45 41 4c 5f 56 41 | 4c 55 45 5f 54 59 50 45 |(REAL_VA|LUE_TYPE|
|00000910| 29 20 2f 20 73 69 7a 65 | 6f 66 20 28 69 6e 74 29 |) / size|of (int)|
|00000920| 5d 3b 0d 7d 3b 0d 0d 2f | 2a 20 46 6f 72 20 61 20 |];.};../|* For a |
|00000930| 43 4f 4e 53 54 5f 44 4f | 55 42 4c 45 3a 0d 20 20 |CONST_DO|UBLE:.  |
|00000940| 20 54 68 65 20 75 73 75 | 61 6c 20 74 77 6f 20 69 | The usu|al two i|
|00000950| 6e 74 73 20 74 68 61 74 | 20 68 6f 6c 64 20 74 68 |nts that| hold th|
|00000960| 65 20 76 61 6c 75 65 2e | 0d 20 20 20 46 6f 72 20 |e value.|.   For |
|00000970| 61 20 44 49 6d 6f 64 65 | 2c 20 74 68 61 74 20 69 |a DImode|, that i|
|00000980| 73 20 61 6c 6c 20 74 68 | 65 72 65 20 61 72 65 3b |s all th|ere are;|
|00000990| 0d 20 20 20 20 61 6e 64 | 20 43 4f 4e 53 54 5f 44 |.    and| CONST_D|
|000009a0| 4f 55 42 4c 45 5f 4c 4f | 57 20 69 73 20 74 68 65 |OUBLE_LO|W is the|
|000009b0| 20 6c 6f 77 2d 6f 72 64 | 65 72 20 77 6f 72 64 20 | low-ord|er word |
|000009c0| 61 6e 64 20 2e 2e 2e 5f | 48 49 47 48 20 74 68 65 |and ..._|HIGH the|
|000009d0| 20 68 69 67 68 2d 6f 72 | 64 65 72 2e 0d 20 20 20 | high-or|der..   |
|000009e0| 46 6f 72 20 61 20 66 6c | 6f 61 74 2c 20 74 68 65 |For a fl|oat, the|
|000009f0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 6e 74 73 20 | number |of ints |
|00000a00| 76 61 72 69 65 73 2c 0d | 20 20 20 20 61 6e 64 20 |varies,.|    and |
|00000a10| 43 4f 4e 53 54 5f 44 4f | 55 42 4c 45 5f 4c 4f 57 |CONST_DO|UBLE_LOW|
|00000a20| 20 69 73 20 74 68 65 20 | 6f 6e 65 20 74 68 61 74 | is the |one that|
|00000a30| 20 73 68 6f 75 6c 64 20 | 63 6f 6d 65 20 66 69 72 | should |come fir|
|00000a40| 73 74 20 2a 69 6e 20 6d | 65 6d 6f 72 79 2a 2e 0d |st *in m|emory*..|
|00000a50| 20 20 20 20 53 6f 20 75 | 73 65 20 26 43 4f 4e 53 |    So u|se &CONS|
|00000a60| 54 5f 44 4f 55 42 4c 45 | 5f 4c 4f 57 28 72 29 20 |T_DOUBLE|_LOW(r) |
|00000a70| 61 73 20 74 68 65 20 61 | 64 64 72 65 73 73 20 6f |as the a|ddress o|
|00000a80| 66 20 61 6e 20 61 72 72 | 61 79 20 6f 66 20 69 6e |f an arr|ay of in|
|00000a90| 74 73 2e 20 20 2a 2f 0d | 23 64 65 66 69 6e 65 20 |ts.  */.|#define |
|00000aa0| 43 4f 4e 53 54 5f 44 4f | 55 42 4c 45 5f 4c 4f 57 |CONST_DO|UBLE_LOW|
|00000ab0| 28 72 29 20 58 49 4e 54 | 20 28 72 2c 20 32 29 0d |(r) XINT| (r, 2).|
|00000ac0| 23 64 65 66 69 6e 65 20 | 43 4f 4e 53 54 5f 44 4f |#define |CONST_DO|
|00000ad0| 55 42 4c 45 5f 48 49 47 | 48 28 72 29 20 58 49 4e |UBLE_HIG|H(r) XIN|
|00000ae0| 54 20 28 72 2c 20 33 29 | 0d 23 69 66 64 65 66 20 |T (r, 3)|.#ifdef |
|00000af0| 41 50 50 4c 45 5f 43 0d | 2f 2a 20 44 65 66 69 6e |APPLE_C.|/* Defin|
|00000b00| 65 20 61 6e 20 61 63 63 | 65 73 73 6f 72 20 74 6f |e an acc|essor to|
|00000b10| 20 74 68 65 20 74 68 69 | 72 64 20 77 6f 72 64 20 | the thi|rd word |
|00000b20| 6f 66 20 61 6e 20 65 78 | 74 65 6e 64 65 64 20 66 |of an ex|tended f|
|00000b30| 6c 6f 61 74 2e 20 2a 2f | 0d 23 64 65 66 69 6e 65 |loat. */|.#define|
|00000b40| 20 43 4f 4e 53 54 5f 44 | 4f 55 42 4c 45 5f 54 4f | CONST_D|OUBLE_TO|
|00000b50| 50 28 72 29 20 58 49 4e | 54 20 28 72 2c 20 34 29 |P(r) XIN|T (r, 4)|
|00000b60| 0d 23 65 6e 64 69 66 20 | 2f 2a 20 41 50 50 4c 45 |.#endif |/* APPLE|
|00000b70| 5f 43 20 2a 2f 0d 0d 2f | 2a 20 4c 69 6e 6b 20 66 |_C */../|* Link f|
|00000b80| 6f 72 20 63 68 61 69 6e | 20 6f 66 20 61 6c 6c 20 |or chain| of all |
|00000b90| 43 4f 4e 53 54 5f 44 4f | 55 42 4c 45 73 20 69 6e |CONST_DO|UBLEs in|
|00000ba0| 20 75 73 65 20 69 6e 20 | 63 75 72 72 65 6e 74 20 | use in |current |
|00000bb0| 66 75 6e 63 74 69 6f 6e | 2e 20 20 2a 2f 0d 23 64 |function|.  */.#d|
|00000bc0| 65 66 69 6e 65 20 43 4f | 4e 53 54 5f 44 4f 55 42 |efine CO|NST_DOUB|
|00000bd0| 4c 45 5f 43 48 41 49 4e | 28 72 29 20 58 45 58 50 |LE_CHAIN|(r) XEXP|
|00000be0| 20 28 72 2c 20 31 29 0d | 2f 2a 20 54 68 65 20 4d | (r, 1).|/* The M|
|00000bf0| 45 4d 20 77 68 69 63 68 | 20 72 65 70 72 65 73 65 |EM which| represe|
|00000c00| 6e 74 73 20 74 68 69 73 | 20 43 4f 4e 53 54 5f 44 |nts this| CONST_D|
|00000c10| 4f 55 42 4c 45 27 73 20 | 76 61 6c 75 65 20 69 6e |OUBLE's |value in|
|00000c20| 20 6d 65 6d 6f 72 79 2c | 0d 20 20 20 6f 72 20 63 | memory,|.   or c|
|00000c30| 6f 6e 73 74 30 5f 72 74 | 78 20 69 66 20 6e 6f 20 |onst0_rt|x if no |
|00000c40| 4d 45 4d 20 68 61 73 20 | 62 65 65 6e 20 6d 61 64 |MEM has |been mad|
|00000c50| 65 20 66 6f 72 20 69 74 | 20 79 65 74 2c 0d 20 20 |e for it| yet,.  |
|00000c60| 20 6f 72 20 63 63 30 5f | 72 74 78 20 69 66 20 69 | or cc0_|rtx if i|
|00000c70| 74 20 69 73 20 6e 6f 74 | 20 6f 6e 20 74 68 65 20 |t is not| on the |
|00000c80| 63 68 61 69 6e 2e 20 20 | 2a 2f 0d 23 64 65 66 69 |chain.  |*/.#defi|
|00000c90| 6e 65 20 43 4f 4e 53 54 | 5f 44 4f 55 42 4c 45 5f |ne CONST|_DOUBLE_|
|00000ca0| 4d 45 4d 28 72 29 20 58 | 45 58 50 20 28 72 2c 20 |MEM(r) X|EXP (r, |
|00000cb0| 30 29 0d 0d 2f 2a 20 46 | 75 6e 63 74 69 6f 6e 20 |0)../* F|unction |
|00000cc0| 74 6f 20 72 65 74 75 72 | 6e 20 61 20 72 65 61 6c |to retur|n a real|
|00000cd0| 20 76 61 6c 75 65 20 28 | 6e 6f 74 20 61 20 74 72 | value (|not a tr|
|00000ce0| 65 65 20 6e 6f 64 65 29 | 0d 20 20 20 66 72 6f 6d |ee node)|.   from|
|00000cf0| 20 61 20 67 69 76 65 6e | 20 69 6e 74 65 67 65 72 | a given| integer|
|00000d00| 20 63 6f 6e 73 74 61 6e | 74 2e 20 20 2a 2f 0d 52 | constan|t.  */.R|
|00000d10| 45 41 4c 5f 56 41 4c 55 | 45 5f 54 59 50 45 20 72 |EAL_VALU|E_TYPE r|
|00000d20| 65 61 6c 5f 76 61 6c 75 | 65 5f 66 72 6f 6d 5f 69 |eal_valu|e_from_i|
|00000d30| 6e 74 5f 63 73 74 20 28 | 29 3b 0d 0d 23 65 6e 64 |nt_cst (|);..#end|
|00000d40| 69 66 20 2f 2a 20 4e 6f | 74 20 52 45 41 4c 5f 48 |if /* No|t REAL_H|
|00000d50| 5f 49 4e 43 4c 55 44 45 | 44 20 2a 2f 0d 00 00 00 |_INCLUDE|D */....|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000d90| ff 40 00 06 c2 00 00 00 | 00 bf fe ff ff 40 00 06 |.@......|.....@..|
|00000da0| d2 00 00 00 00 f0 10 ff | ff 20 00 06 e2 00 00 00 |........|. ......|
|00000db0| 06 72 65 61 6c 2e 68 72 | 02 00 00 00 00 00 00 00 |.real.hr|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 1c 4b |........|.......K|
|00000dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 a3 81 52 85 00 00 | 00 00 00 00 01 7e 03 f8 |....R...|.....~..|
|00000e00| 81 00 00 00 00 c2 41 ff | ff 20 03 f8 91 00 00 00 |......A.|. ......|
|00000e10| 00 c2 81 ff ff 20 04 6f | a8 00 00 00 00 c2 83 ff |..... .o|........|
|00000e20| ff 20 04 6f b8 00 00 00 | 00 c2 00 ff ff 20 04 6f |. .o....|..... .o|
|00000e30| c8 00 00 00 00 c1 82 ff | ff 00 06 4a 5e 00 00 00 |........|...J^...|
|00000e40| 00 c1 88 ff ff 00 06 4a | 6e 00 00 00 00 c1 98 ff |.......J|n.......|
|00000e50| ff 00 06 4a 7e 00 00 00 | 00 c5 20 ff ff 40 06 59 |...J~...|.. ..@.Y|
|00000e60| 51 00 00 00 00 c1 20 ff | ff 00 00 02 ae 00 00 00 |Q..... .|........|
|00000e70| 00 e0 00 ff ff 00 00 05 | 74 00 00 20 d8 bf fb ff |........|t.. ....|
|00000e80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 06 | 00 04 00 50 00 20 01 dd |........|...P. ..|
|00000eb0| 02 3d 00 50 00 20 01 dd | 02 3d a2 58 dc 8a 00 00 |.=.P. ..|.=.X....|
|00000ec0| 04 bf 00 00 04 bf 00 00 | 03 3d 01 00 00 00 01 00 |........|.=......|
|00000ed0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 29 25 1c |...L...L|...2.)%.|
|00000ee0| 04 0c 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000ef0| 00 0a 03 ed ff ff 00 00 | 00 00 00 2a cb 14 00 00 |........|...*....|
+--------+-------------------------+-------------------------+--------+--------+